unit MStatusBar;

interface

uses ComCtrls, Classes, Controls;

{$ObjExportAll On}
{$R MStatusBar.res}

type

  TMyStatusBar = class(TStatusBar)
  public
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;


implementation

uses Consts;

constructor TMyStatusBar.Create( AOwner : TComponent );
begin
   inherited Create(AOwner);
   ControlStyle := ControlStyle + [csAcceptsControls];
end;



procedure Register;
begin
  RegisterComponents('Win32', [TMyStatusBar]);
end;



end.
